ADR 	R0,prompt
SWI     "OS_Write0"
ADR	R0,buffer
MOV	R1,#32
MOV	R2,#64
MOV	R3,#128
SWI	"OS_ReadLine"
ADR	R0,greeting
SWI	"OS_Write0"
ADR	R0,buffer
SWI	"OS_Write0"
SWI	"OS_NewLine"
ADR	R0,greeting2
SWI	"OS_Write0"
SWI	"OS_NewLine"
SWI	"OS_Exit"


.prompt
EQUS	 "Please type your name >"+CHR$(0)

.greeting
EQUS	"Hello "+CHR$(0)

.buffer
EQUS    STRING$(32,CHR$(0))

.greeting2
EQUS	"I hope you eat a lot of pineapples."+CHR$(0)